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A FLEXIBLE DATA BUFFER DISPLAY ROUTINE FOR LAB-8 SYSTEMS 


- ECUS Program librar y Write-up DECUS NO. 8-637 


ABSTRACT 

This set of five subroutines may be called to display the contents 
of a data buffer on the oscilloscope of an AX-08 (LAB-8) system. 
Software control of format as either a point or a histogram dis¬ 
play, vertical scaling and placement in the two axes of the display 
is provided. 












REQUIREMENTS 


Storage - these subroutines occupy 162(8) storage locations and may 
be placed anywhere in memory on a single page. 

Equipment - basic LAB-8 system with oscilloscope display. 

USAGE 

Loading - The subroutines are supplied as a PAL symbolic tape 
with no origin setting, but terminated with a PAUSE directive, 
which may be assembled to any convenient location. 

Calling Sequence - The display subroutine is called by an effective 
JMS PLOTER with the relevant parameters (detailed elsewhere) set 
by a user provided subroutine. As a call to the display generation 
subroutine will only display the data buffer a single time, 
multiple calls are required to provide the refreshing necessary 
for a visual display. Certain parameters are destroyed by the 
routine and must be reset between successive calls. It is 
expected that the reset routine will provide the facilities 
for changing display format and as this is likely to be program 
specific no routine is supplied. The vertical scale controlling 
subroutines are called by an effective JMS VSFMUL to increase the 
vertical scale or an effective JMS VSFDIV to decrease the vertical 
scale. 

RESTRICTIONS 

Hardware - The standard AX-08 display restriction applies, namely 
no display is possible during the interval between an ADCV and 
subsequent RADC instruction. The normal display problem of 
"wrap-around" on both axes also holds, therefore data must be 
kept in the relevant range for the display. 
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DESCRIPTION 


The subroutine PLOTER generates a display according to the 
parameters set in various locations when it is called as detailed 
below. 

BUFFER is set to point to the first location in the data buffer 
to be displayed and NOPTS is set to minus the number of points 
in the buffer. XAXIS and BASELN set the position of the display 
in the X and Y axes. XAXIS should be set to the initial point 
on the screen where the display is to start. BASELN is added 
to every data point, after any scaling has been carried out, 
and is especially useful when generating histograms as the 
effective zero for the display may be moved to the bottom of the 
display screen (-377 octal). XSTEP controls the distance between 
successive points on the display face and obviously should be 
selected to prevent "wrap around 11 on the X-axis of the display. 
RBIN controls the form of the data display. If it is set to -1 
then the data is displayed as individual points whereas if it is 
set to -2 or less then a histogram display will be generated 
with each bin being that number of display points wide (each point 
being XSTEP apart). It should be noted that if the first 
or last values in the data buffer are non-zero then the routine 
will not join the leading or trailing edges respectively to the 
effective zero as defined by BASELN. Time is saved by not dis¬ 
playing null data because the routine automatically generates a 
baseline across the display from XAXIS to XEND at effective zero 
by calling the routine BASLIN on entry. It is possible to ensure 
that no baseline is drawn by setting XAXIS to the same value as 
XEND before the call to PLOTER. 

SCALE1 and SCALE2 provide a capability for vertical scaling of 
the display data (without buffer modification) as defined by 
Table 1. The routines VSFMUL, VSFDIV and VSETUP provide a 

means of achievding each of these scaling factors under program 









control. An effective JMS VSETUP with a cleared accumulator 
returns the vertical scaling factor (VSF) to 1 and calls to 
VSFMUL or VSFDIV vary this by multiplying or dividing the VSF 
by two respectively. The variable VVAL is used to hold an 
index of the current display VSF (see table 1). The routines 
VSFMUL and VSFDIV also contain automatic exits if they are 
called to yield an invalid VSF. 

TABLE 1 


SCALE1 

SCALE2 

SCALING FACTOR 

VVAL 

CLL RAL 

CLL RAL 

4 

-2 

* NOP 

CLL RAL 

2 

-1 

CLL RAL 

NOP 

2 

-1 

NOP 

NOP 

1 

0 

RAR 

NOP 

0.5 

1 

* NOP 

RAR 

0.5 

1 

RAR 

RAR 

0.25 

2 


* - not actually used by VSETUP. 

All parameters may be varied under program control to generate 
different displays but in certain cases it would be better to 
ensure that parameters are only changed between successive calls 
of the display generator otherwise a specific pass of the display 
generator may give unspecified results, e.g. consider changing 
the buffer pointer and the number of points counter just before 
the end of a display pass which would obviously cause wrap around 
and certainly destroy the display until the next call. If 
parameters are being changed on the interrupt then it is best 
to arrange that a new call is issued to the routine and that the 
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parameters are reset as necessary. Two examples follow of par¬ 
ameter values to set up given displays. 

(i) to generate a display of a signal average containing 400 
points starting at 50 on the X—axis and with no correction 
factor for the data. Each point to be displayed at suc¬ 
cessive points on the display face. A baseline to be 
plotted at effective zero from 50 to 450 on display. 


XAXIS, 

0062 

/ 

50 decimal 

XSTEP, 

0001 

/ 

successive points 

BASELN, 

0000 

/ 

no corrective factor 

XEND, 

7075 

/ 

- 451 decimal 

RBIN, 

7777 

/ 

1 display point/data point 

BUFFER, 

DATA 

/ 

address of data buffer 

NOPTS, 

7160 

/ 

- 400 decimal 


(ii) to generate a histogram display of 100 bins, each four points 
wide, with effective zero at the base of the display screen 
starting at location 50 on the X-axis, with a baseline 
stretching from 50 to 450 at effective zero. 


XAXIS, 

0062 

/ 

50 decimal 


XSTEP, 

0001 

/ 

successive points 


BASELN, 

7401 

/ 

- 377 (base of screen 

Y-axis value) 

XEND, 

7075 

/ 

- 451 decimal 


RBIN, 

7774 

/ 

4 point wide bin for 

each data point 

BUFFER, 

DATA 




NOPTS, 

7634 

/ 

- 100 decimal 



To convert (ii) to a point display with each point being displayed 
four points apart XSTEP should be set to 4 and RBIN to -1. 

The attached listing is heavily commented and should prove self 
explanatory. (the routine is shown assembled starting at loc. 
0200 ). 












eg 


PAGE 0001 
0001 
000 ? 

00.03 

0004 

0005 

0006 

0007 

0008 

0009 

0010 

0011 

001 ? 

0013 
0014 
0015 
,001 6 
017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
003? 

0033 

0034 


/ 

/A GENERAL PUP POSE DATA BtlFFEF DISPLAY F OT'TI ME 

/ 

/A• J • SWAN 20:4:73 
/ 

/FLEXIBILTY OF DISPLAY FORMAT IS ACHIEVED PY LEAVIMG 
/THE USEP TO PROVIDE A Sri TABLE ROUTINE TO SFT 
/UP THE RELEVANT PARAMETFPS A? DETAILED BELOW 

/ 

/FARAMETEFS WHICH ARE DESTROYED AND MUST PF 
/RESET BETWEEN EACH SUCCESSIVE CALL 

/ 

/BUFFER - THE START ADDRESS OF THE DATA BUFFER 
/NOPTS - MINUS THE NUMBER OF POINTS IN THE BUFFER 
/XAXIS - THE INITIAL DISPLAY X-AXIS POSITION 
/ 

/PARAMETERS WHICH ARF NOT DESTROYED BUT GIVE 
/DETAILS OF HOW THE BUFFER IS TO PE PRESENTED 
/ON THE DISPLAY SCREEN 

/ 

/RBI N 
/XSTEF 
/ 

/BASELN 
/ 

/ 

/XEND 

/ 

/SCALE 1 
/INSTEUCTIONS 
/ 

/THE ABOVE PARAMETERS MAY EITHER PF FIXED UNDER 
/PROGRAM CONTROL OP IN THE SOURCE CODING 


“ THE BIN WIDTH FOR EACH DATA POINT 

- THE NUMBER OF DISPLAY POINTS BETWEEN 
EACH SUCCESSIVE INTENSIFIED POINT 

- THE Y-AXIS CORRECTION FACTOR TO PE 
ADDFD TO EACH DATA. POINT AFTER SCALING 
TO PROVIDE EFFECTIVE ZERO CONTROL 

- THE END OF THE BASFLIME DFAWN ACROSS 
THE SCREEN AS DEFINED BY BASELN 

AND SCALE? MAY PE REPLACED EY SUITABLE 
TO PROVIDE VERTICAL SCALING 


10035 



/ 




*11036 

0200 

0000 

PL0TER, 

0000 


0 037 

0201 

4264 


JMS 

PASLIN 

/PLOT BASELINE 

0038 

020? 

1312 


TAD 

REIN 

/RESET BINWI DTH COUNTF.P 

0039 

0203 

3307 


DC A 

BINWI D 


0040 

0204 

17 10 


TAD 

I BUFFER 

/GFT CURRENT DATA VALUE 

0041 

0205 

3306 


DC A 

CUEVAI, 

/STORE FOR FUTURE USE 

0042 

0206 

1313 

PLOOP, 

TAD 

XAXI S 

/GET CURRENT X-AXIS POSN 

0043 

C2C7 

6303 


DXC 

DXL 

/LOAD INTO DISPLAY BUFFERS 

0044 

0210 

7200 


CLA 


/CLEAR VALUE 

C045 

021 1 

424 3 


JMS 

YON 

/GO PLOT CURRENT COOFDINATF 

0 046 

0212 

1313 


TAD 

XAXIS 

/UPDATE X-AXIS VALUE 

0047 

0213 

1314 


TAD 

XSTEF 


0048 

0214 

33 13 


DC A 

XAX I S 


0049 

0215 

2307 


I SZ 

LINWI D 

/DONE A. PIN YET? 

0050 

0216 

5206 


JMP 

1 LOOP 

/NO SO KEEP GOING 

0051 

0217 

231 1 


I SZ 

NOPTS 

/YES SO DONE ALL DATA YET? 

0052 

0220 

74 10 


SKF 


/NO SO SKIP 

0053 

0221 

5600 


JMP 

I PLOTEP 

/YES SO EXIT NOW 

0054 

022? 

2310 


ISZ 

BUFFER 

/BUMP DATA BUFFED POINTER 


POIN 
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0055 

0223 

7 001 


I AC 

/SET ACC = 1 

0056 

0224 

131? 


TAD PBIN 

/ACC = 1 - BINWIDTH 

0057 

0225 

7700 


SNA CLA 

/BINWID < -1? 

0058 

0226 

5202 


JMF PLOTER+2 

/NO SO PLOT NEXT POINT NOW 

0059 



/ 



0060 



/GET HEFE IF WE APE 

PLOTTING A HISTOGRAM 

0061 



/SO WE 

MUST JOIN END 

OF BAF PEPFESENTING 

0062 



/THE BIN FREQUENCY BY A VERTICAL LINE TO 

0063 



/THE NEXT FREQUENCY 


0064 



/ 



0065 

0227 

1710 

JOIN.* 

TAD I BUFFER 

/GET VALUE TO PE PLOTTED NEXT 

0066 

0230 

7041 


CIA 

/MAKE NEGATIVE 

0067 

0231 

1306 


TAD CUEVAL 

/ADD ON VALUE JUST PLOTTED 

0068 

0232 

7/i50 


SNA 

/ARE THEY THF SANE? 

0069 

0233 

5202 


JNP PLOTEF+P 

/YES SO PLOT NEXT POINT NOW 

0070 

0234 

7700 


SMA CLA 

/IS NEW VALUE > OLD VALUE? 

0071 

0235 

7144 


CLL CMA PAL 

/SET ACC = -2 

0072 

0236 

7 001 


I AC 

/ACC = ACC+1 I.E. 1 OF -1 

0073' 






0074 

0237 

1306 


TAD CUEVAL 

/UPDATE VALUE OF CUPVAL TO GET 

007 5 

0240 

3306 


DC-A CUPVAL 

/NEW VERTICAL LINE VALUE 

0076 

02/il 

4243 


JMS YON 

/DRAW LINE 

0077 

0242 

5227 


JMF JOIN 

/SEE IF WE APE THPO YET 

0078 



/ 



0079 



/THIS 

WILL NOT DISPLAY NULL DATA 

008 0 



/ 



008 1 

0243 

0000 

YON, 

0000 


008 2 

0244 

1306 


TAD CUPVAL 

/FLSF GET DATA VALUE 

008 3 

0245 

7650 


SNA CLA 

/NON ZERO? 

008/i 

0246 

5643 


JMP I YON 

/NO SO EXIT 

008 5 

0247 

1 306 


TAD CUPVAL 

/LOAD VALUE TO BE SCALED 

008 6 

0250 

7100 


CLL 

/ENSURE LINK IS 0 

0087 

02 51 

7510 


SFA 

/IS VALUE POSITIVE? 

0088 

0252 

7020 


CNL 

/NO SO SET LINK TO SIGN PIT 

0089 

0253 

7000 

SCALE1 

> NOP 

/LOCATION TO STORE FI PST SCALIN1 

0090 

0254 

7 100 


CLL 

/AS BEFORE FOP SECOND SCALING INS® 

0 09 1 

0255 

75 10 


SPA 


009 2 

0256 

7020 


CNL 


0093 

0257 

7000 

SCALE? 

* NOP 


0094 

0260 

1305 


TAD BASELN 

/ADD ON PASFLINF CORRECTION 

0095 

0261 

6317 


DYC DYL DIS 

/INTENSIFY POINT 

0096 

026? 

7200 


CLA 

/(’LEAF VALUE 

009 7 

0263 

564 3 


JNP I YON 

/THEN EXIT 

0098 



/ 



0099 



/PUTS 

A BASELINE ON 

DISPLAY AT 

0100 



/LEVEL 

DEFINED BY BA 

SFLN BETWEEN 

0101 



/XAXI S 

ANI MEND 


0102 



/ 



0103 

026/' 

0000 

BASLIN 

* 0000 


01 0/’ 

0265 

1313 


TAD XAXIS 

/SFT INITIAL X-AXIS FOSITION 

0105 

02 66 

3303 


DC A 'XROS 


0106 

0267 

1 305 


TAD BASELN 

/SET Y COOFDINATE ONCE ONLY 

0107 

027 0 

6313 


DYC DYL 


0108 

0271 

7200 


CLA 


0109 

027? 

1303 

BLOOP.* 

TAD XI OS 

/CHECK FOP END OF LINE 
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01 10 
0111 
0112 
0113 
0114 
0115 
0116 
01 17 
0118 
01 19 
0120 
0121 
0122 
0123 
0124 
0 1 25 
0126 
0127 
0128 
0129 
0130 
0 1 3 1 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0189 
0.1 *'0 
01/1 
01 / 2 
01/3 
0 1 / 4 
01/5 
01/6 
01/7 
0 148 
£ 1 /‘9 
015-0 
015 1 
0152 
01S3 
015-4 
0155 
0156 
0157 
0 158 
0159 
0 160 
016 1 
0162 
0163 
0164 


0273 
L'27 4 
0275 
0276 
£277 
0300 
0301 
0302 


0303 
0304 
0305 
0306 
0307 
0310 
031 1 
0312 
0313 
0314 


0315 
0316 
0317 
0320 
0321 
0322 
0323 
0324 
032 5 


1304 

7 65P 
566/' 
1 303 
6307 
7200 
2303 
5272 


T A) 

SNA 

JMF 

TAD 

DXf: 

CLA 

I SZ 

JMF 


XKNI.* 

CLA 

I BASLIN 
XPOS 
DXL. DI S 

XFOS 

BLOOP 


/END PEACHPP? 
/YES SO EXIT 
/NO SO INTENSIFY 


NEXT JOINT 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

6000 

0000 

0000 


0000 

7305 
1 352 
7650 
5715 
7 64 0 
1 352 
4337 
57 1 5 


0326 

0327 

0330 

0331 

0332 

0333 

0334 

0335 

£336 


0000 

7 344 

1352 
7 650 
5726 
7 6 0 1 
1352 
4337 
5726 


/ 

/ CONSTANTS 

/ 

XPOS., 00 0 0 
xend.» 0000 

BASFLN, 0000 
COEVAL> 0000 
BINWID* 0006 
BUFFEF, 0000 
NOFTS* 000P 
HPIN.» 0000 

XAXIS., 0000 
XSTFP> 0000 
/ 

/THIS 
/FACTOR 

/ 

VSFMUL, 


/BUMF BASFLINF VALUE 
/CHECK END CONDITION 


USED BY ROUTINES 


SUBROUTINE INCREASES THE VERTICAL SCALING 
BY A FOWEF OF TWO UF TO A MAXIMUM OF 4 


0000 
NL00O2 
TAD VVAL 
CLA 

I VSFMUL 


SNA 
JMF 
CM A 
TAD 
JMS 
JMF 


VVAL 
VSETUP 
I VSFMUL 


/ 

/THIS SUBROUTINE DIVIDES THE 
/FACTOR PY A POWER OF 2 DOWN 
/ 

VSFDIV* 


/SET ACC = 2 

/ADD ON CURRENT VSF INDEX 
/MAX. VSF ALREADY? 

/YES SO EXIT IMMEDIATELY 
/NO SO SUBTRACT 1 FROM VSF 

/SET UP NECESSARY INSTPS. 
/EXIT WHEN DONE 


INDEX 


VERTICAL SCALING 
TO A. MINIMUM OF 0.2 5 


0000 

CLA CLL 


TAD 
SNA 
JMF 
I AC 
TAD 
JMS 
JMF 


CMA PAL 

VVAL 

CLA 

I VSFDIV 

VVAL 
VSFTUP 
I VSFDI V 


/SET ACC = -2 

/ADD ON CURRENT VSF INDEX 

/MINIMUM VSF ALFEADY? 

/YES SO EXIT 
/NO SO ADD 1 TO 
/CURRENT VSF INDEX 
/SET UF NECESSARY INSTFS. 
/THEN EXIT 


0337 
0340 
034 1 


0000 

3352 

1354 


/ 

/THIS SUBROUTINE SETS 
/IN SCALE1 AND SCALE2 
/ IN ACC 
/ 

VSETUPj 0000 

DCA VVAL 
TAD LARVAL 


UP THE NECESSARY INSTRUCTIONS 
FOR A GIVEN VSF INDEX ON ENTRY 


/STORE NEW VSF INDEX 

/FORM ADDRESS OF FIRST INSTR. 
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> 


0165 

0 342 

1 352 


TAD rvAL 

0 166 

034 3 

3 3 8 5 


RCA VSKINI 

0167 

0 344 

17 53 


'irv 1 VS KIND 

0168 

034 5 

3253 


DCA SCALE 1 

0169 

0346 

2353 


ISZ VSFINE 

0170 

0347 

1753 


TAD I VSFIND 

017 1 

0350 

32 57 


DCA SCALF2 

0172 

017 3 

0351 

5737 

/ 

JMP I VSETUP 

017/' 



/CONSTANTS RECTIFED 1 

0175 



/ 


0176 

0352 

0000 

OVAL* 

00 0f: 

0177 

0353 

0000 

VS KIND* 

0000 

0178 

0354 

0357 

LARVAL* 

I NST AP 

0179 

0355 

7104 


DLL PAL 

018 0 

0356 

7 104 


CLL RAL 

018 1 

0357 

7 000 

INSTAB* 

NOP 

0182 

0360 

7 000 


NOP 

0 183 

0361 

7010 


RAF 

018 4 
0185 

0362 

701 f 7 

PAUSE 

PA I 


/store 

/I.OMI 

/VIlMp 

/LOAD 


AS 

•I I 


t 01 NT FR 
ST INST I'. 


I NSTRUCTI ON DOT NT FT 
SECOND INSTR. 


py 


/THFN EXIT 
ABOVE ROUTINES 


BASELN 0305 
BUFFER 031C 
LABVAL 0354 
REIN 03 1 2 
VSFDIV 0326 
XAXIS 0313 
YON 0243 


BASL.IN 0264 
CUEVAL P306 
NOFTS 0311 
SCALE 1 0253 
VSFINP 0353 
XEND 0304 


BINV7IE P3P7 
INSTAB 0357 
FLOOD 0206 
SCALE? 0257 
VSFMUL C315 
XPOS 0303 


BLOOP 0272 
JOIN 0227 
FLOTEE 0200 
VSETUP 0337 
OVAL 0352 
X STEF 031A 


9 












